﻿Imports BusinessLogicLayer
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim errores As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            
            'Instanciamos la clase 
            Dim capanegocios As New CarritoBL

            Try
                capanegocios.EliminarCarritosPasados()

            Catch ex As Exception

                errores = capanegocios.ChapaError
                'Redirigimos  a la página Errores.aspx para mostrar el error
                Response.Redirect("Errores.aspx?id=" & errores)

            Finally
                capanegocios = Nothing
            End Try

        End If
       
    End Sub
End Class
